Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim mySubject As String
    
    On Error GoTo err:
    mySubject = Item.Subject
    mySubstr = InStr(mySubject, "Evaluation formation")
    If mySubstr <> 0 Then
        If mySubstr > 0 Then
            Item.SaveAs "Evaluation formation.msg", olMSG
        End If
    End If
        
    Exit Sub
err:
    MsgBox "Problme de sauvegarde"
End Sub